(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18615,        512]
NotebookOptionsPosition[     17004,        476]
NotebookOutlinePosition[     17359,        492]
CellTagsIndexPosition[     17316,        489]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"PowerNest", "[", 
   RowBox[{"A_", ",", "ops_", ",", "h_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "x0", ",", "c", ",", "x", ",", "\[Lambda]1", ",", "i", ",", "x1", ",", 
      "x2", ",", "\[Lambda]2", ",", "d", ",", "x3", ",", "\[Lambda]3"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "A", "]"}], "//", "First"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x0", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
        RowBox[{"{", "c", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x1", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"A", ".", "#"}], ")"}], "/", 
          RowBox[{"Norm", "[", 
           RowBox[{"A", ".", "#"}], "]"}]}], "&"}], ",", "x0", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], ")"}], 
         "&"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x1", ".", "A", ".", "x1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x1", ".", "x1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
       RowBox[{"d", "=", 
        RowBox[{"Range", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Abs", "[", "\[Lambda]1", "]"}]}], ",", 
          RowBox[{"Abs", "[", "\[Lambda]1", "]"}], ",", "h"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
       RowBox[{"\[Lambda]3", "=", 
        RowBox[{"{", "\[Lambda]1", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{"i", "<", 
          RowBox[{"Length", "[", "d", "]"}]}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x2", "=", 
             RowBox[{"NestWhile", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"LinearSolve", "[", 
                  RowBox[{
                   RowBox[{"A", "-", 
                    RowBox[{
                    RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                    RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}],
                   "]"}], "/", 
                 RowBox[{"Norm", "[", 
                  RowBox[{"LinearSolve", "[", 
                   RowBox[{
                    RowBox[{"A", "-", 
                    RowBox[{
                    RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                    RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}],
                    "]"}], "]"}]}], "&"}], ",", "x0", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Abs", "[", 
                    RowBox[{"Norm", "[", 
                    RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], "&&", 
                  RowBox[{
                   RowBox[{"Abs", "[", 
                    RowBox[{"Norm", "[", 
                    RowBox[{"#1", "+", "#2"}], "]"}], "]"}], ">", "ops"}]}], 
                 ")"}], "&"}], ",", "2"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Lambda]2", "=", 
             RowBox[{
              RowBox[{"1.", "/", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x2", ".", "A", ".", "x2"}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"x2", ".", "x2"}], ")"}]}], ")"}]}], "+", 
              RowBox[{"d", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"\[Lambda]3", "=", 
             RowBox[{"AppendTo", "[", 
              RowBox[{"\[Lambda]3", ",", "\[Lambda]2"}], "]"}]}], ";"}], 
           "\[IndentingNewLine]", "}"}], ";", 
          RowBox[{"i", "++"}]}]}], "]"}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "\[Lambda]1", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7860155600203533`*^9, 3.7860156764130125`*^9}, {
   3.7860157312792454`*^9, 3.786015733388604*^9}, 3.7860158479303036`*^9, {
   3.7860159013359785`*^9, 3.786015910956216*^9}},
 CellLabel->
  "In[400]:=",ExpressionUUID->"c81fd1d5-0c19-4126-a33b-326878d051a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PowerNest", "[", 
  RowBox[{"A", ",", "0.001", ",", "1"}], "]"}]], "Input",
 CellLabel->
  "In[401]:=",ExpressionUUID->"b187ccf2-7e7a-4f45-b4d8-3715fb05852d"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.7860157681695967`*^9, 3.786015827471977*^9, 
  3.7860158592256007`*^9, 3.7860159179016414`*^9},
 CellLabel->
  "Out[401]=",ExpressionUUID->"526ddddf-6869-4a25-bff9-5ad3a8f83632"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ops", "=", "0.0001"}]], "Input",
 CellChangeTimes->{{3.786016157032096*^9, 3.7860161635621414`*^9}},
 CellLabel->
  "In[416]:=",ExpressionUUID->"90787170-3ad8-4b70-a37e-0f7fbdd8a448"],

Cell[BoxData["0.0001`"], "Output",
 CellChangeTimes->{{3.7860161579217525`*^9, 3.7860161641455812`*^9}},
 CellLabel->
  "Out[416]=",ExpressionUUID->"b4121eae-14d4-4ec8-998f-973e743bd5eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestWhileList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", ".", "#"}], ")"}], "/", 
     RowBox[{"Norm", "[", 
      RowBox[{"A", ".", "#"}], "]"}]}], "&"}], ",", "x0", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"#1", "-", "#2"}], "]"}], "&"}], ">", "ops"}], ",", "20"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.786015937991913*^9, 3.7860159491630373`*^9}, {
  3.7860160434104877`*^9, 3.78601610712916*^9}, {3.786016190023373*^9, 
  3.786016214426112*^9}},
 CellLabel->
  "In[420]:=",ExpressionUUID->"853bd0ac-b4d7-465d-990d-118ecbf0ad9d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7416312956425355`", ",", 
     RowBox[{"-", "0.6535505696782755`"}], ",", 
     RowBox[{"-", "0.1511776246564796`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.2515891573793391`"}], ",", "0.3119702871739568`", ",", 
     RowBox[{"-", "0.916175439427271`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5669893525039483`"}], ",", "0.42283056639378513`", ",", 
     "0.7069210608478603`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7200174183862499`", ",", 
     RowBox[{"-", "0.651393916923213`"}], ",", "0.23929246167782678`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.09964744604966884`", ",", "0.013314773271189696`", ",", 
     RowBox[{"-", "0.9949337180478482`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.6974144364037149`"}], ",", "0.5629877604372924`", ",", 
     "0.4434612559102435`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5414455655632631`", ",", 
     RowBox[{"-", "0.536848539665691`"}], ",", "0.6470164951457521`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0.38372820194280577`", ",", 
     RowBox[{"-", "0.24470617092244454`"}], ",", 
     RowBox[{"-", "0.8904333534556175`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7546276606390794`"}], ",", "0.6457560937568635`", ",", 
     "0.11634500923661206`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.22007020059987753`", ",", 
     RowBox[{"-", "0.28560741288025027`"}], ",", "0.9327365718764221`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5814487422047796`", ",", 
     RowBox[{"-", "0.4375533519081336`"}], ",", 
     RowBox[{"-", "0.6859040927290322`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7106972269127506`"}], ",", "0.6469927100828017`", ",", 
     RowBox[{"-", "0.2762424383729593`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.12850509371474575`"}], ",", "0.012159351118527005`", ",",
      "0.9916343030924963`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7056584313751212`", ",", 
     RowBox[{"-", "0.5728307397465994`"}], ",", 
     RowBox[{"-", "0.41702652413313834`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5175916136838778`"}], ",", "0.5193811551049349`", ",", 
     RowBox[{"-", "0.6799574524674193`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.4046797311586147`"}], ",", "0.26447524852259185`", ",", 
     "0.875378294286707`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7554872172999791`", ",", 
     RowBox[{"-", "0.6497746564539015`"}], ",", 
     RowBox[{"-", "0.08385678461847001`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.18800635036561303`"}], ",", "0.25914405838111293`", ",", 
     RowBox[{"-", "0.9473636942737297`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5953417725869141`"}], ",", "0.45182196613104453`", ",", 
     "0.6643982877269838`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.786015931336767*^9, 3.7860159499150267`*^9}, {
  3.786016037763589*^9, 3.7860160481188965`*^9}, {3.786016084581459*^9, 
  3.7860161125144997`*^9}, {3.786016142734054*^9, 3.7860162151931505`*^9}},
 CellLabel->
  "Out[420]=",ExpressionUUID->"22db8b1d-d9bc-4d5a-a6b2-05987ef965ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"RandomReal", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.786016019453557*^9, 3.7860160326692133`*^9}},
 CellLabel->
  "In[405]:=",ExpressionUUID->"8abc1b70-e67c-49a9-998a-42a363830f11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.47928107438418266`"}], ",", 
     RowBox[{"-", "0.030742584333799172`"}], ",", "2.8201010693050534`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5104128119868214`", ",", 
     RowBox[{"-", "0.3411087675796107`"}], ",", 
     RowBox[{"-", "2.269052994029388`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5815657627638489`"}], ",", "2.8989943949806403`", ",", 
     RowBox[{"-", "1.9435929438127797`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.786016033700455*^9},
 CellLabel->
  "Out[405]=",ExpressionUUID->"39dec66a-f41f-4565-a309-976577eaab8f"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"33f09045-44e7-4518-b1a0-c809e698e6a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PowerNest", "[", 
   RowBox[{"A_", ",", "ops_", ",", "h_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "x0", ",", "c", ",", "x", ",", "\[Lambda]1", ",", "i", ",", "x1", ",", 
      "x2", ",", "\[Lambda]2", ",", "d", ",", "x3", ",", "\[Lambda]3", ",", 
      "j", ",", "k"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "A", "]"}], "//", "First"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x0", "=", 
      RowBox[{
       RowBox[{"RandomReal", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
         RowBox[{"{", "c", "}"}]}], "]"}], "//", "N"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x1", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"A", ".", "#"}], ")"}], "/", 
          RowBox[{"Norm", "[", 
           RowBox[{"A", ".", "#"}], "]"}]}], "&"}], ",", "x0", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], ")"}], 
         "&"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x1", ".", "A", ".", "x1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x1", ".", "x1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Abs", "[", "\[Lambda]1", "]"}]}], ",", 
        RowBox[{"Abs", "[", "\[Lambda]1", "]"}], ",", "h"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
       RowBox[{"\[Lambda]3", "=", 
        RowBox[{"{", "\[Lambda]1", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{"i", "<", 
          RowBox[{"Length", "[", "d", "]"}]}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x2", "=", 
             RowBox[{"NestWhile", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"LinearSolve", "[", 
                  RowBox[{
                   RowBox[{"A", "-", 
                    RowBox[{
                    RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                    RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}],
                   "]"}], "/", 
                 RowBox[{"Norm", "[", 
                  RowBox[{"LinearSolve", "[", 
                   RowBox[{
                    RowBox[{"A", "-", 
                    RowBox[{
                    RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                    RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}],
                    "]"}], "]"}]}], "&"}], ",", "x0", ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], 
                "&"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"\[Lambda]2", "=", 
             RowBox[{
              RowBox[{"1.", "/", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x2", ".", "A", ".", "x2"}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"x2", ".", "x2"}], ")"}]}], ")"}]}], "+", 
              RowBox[{"d", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"\[Lambda]3", "=", 
             RowBox[{"AppendTo", "[", 
              RowBox[{"\[Lambda]3", ",", "\[Lambda]2"}], "]"}]}], ";"}], 
           "\[IndentingNewLine]", "}"}], ";", 
          RowBox[{"i", "++"}]}]}], "]"}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "\[Lambda]1", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",ExpressionUUID->"e23632a6-997e-4ec2-90a4-1ecd8b641f24"],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.78601569342552*^9},
 CellLabel->
  "In[389]:=",ExpressionUUID->"f87fb34e-b9d0-484f-80a6-190ac2d57bec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "22"}], ",", 
     RowBox[{"-", "24"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "21"}], ",", 
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "21"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "22"}], ",", 
     RowBox[{"-", "17"}], ",", 
     RowBox[{"-", "15"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7860156939061947`*^9},
 CellLabel->
  "Out[389]=",ExpressionUUID->"7ceda742-28d7-4608-b162-57455085911d"]
}, Open  ]]
},
WindowSize->{638, 628},
WindowMargins->{{Automatic, -7}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 4855, 123, 442, "Input",ExpressionUUID->"c81fd1d5-0c19-4126-a33b-326878d051a2"],
Cell[CellGroupData[{
Cell[5438, 147, 182, 4, 28, "Input",ExpressionUUID->"b187ccf2-7e7a-4f45-b4d8-3715fb05852d"],
Cell[5623, 153, 235, 4, 32, "Output",ExpressionUUID->"526ddddf-6869-4a25-bff9-5ad3a8f83632"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5895, 162, 207, 4, 28, "Input",ExpressionUUID->"90787170-3ad8-4b70-a37e-0f7fbdd8a448"],
Cell[6105, 168, 187, 3, 32, "Output",ExpressionUUID->"b4121eae-14d4-4ec8-998f-973e743bd5eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6329, 176, 630, 18, 45, "Input",ExpressionUUID->"853bd0ac-b4d7-465d-990d-118ecbf0ad9d"],
Cell[6962, 196, 3415, 84, 204, "Output",ExpressionUUID->"22db8b1d-d9bc-4d5a-a6b2-05987ef965ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10414, 285, 385, 11, 45, "Input",ExpressionUUID->"8abc1b70-e67c-49a9-998a-42a363830f11"],
Cell[10802, 298, 680, 18, 52, "Output",ExpressionUUID->"39dec66a-f41f-4565-a309-976577eaab8f"]
}, Open  ]],
Cell[11497, 319, 329, 10, 8, "Text",ExpressionUUID->"33f09045-44e7-4518-b1a0-c809e698e6a2"],
Cell[11829, 331, 4397, 113, 479, "Input",ExpressionUUID->"e23632a6-997e-4ec2-90a4-1ecd8b641f24"],
Cell[CellGroupData[{
Cell[16251, 448, 151, 3, 28, "Input",ExpressionUUID->"f87fb34e-b9d0-484f-80a6-190ac2d57bec"],
Cell[16405, 453, 583, 20, 32, "Output",ExpressionUUID->"7ceda742-28d7-4608-b162-57455085911d"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

